Fix text in erts-run-test message

* lisp/progmodes/erts-mode.el (erts-run-test): New command and
keystroke.

diff --git a/lisp/progmodes/erts-mode.el b/lisp/progmodes/erts-mode.el
index 9d3d7698069fbd488412270deca25cba5055affd..46b6a3a711b7ce8fa8e94b4c5e3680d22801f444 100644 (file)
--- a/lisp/progmodes/erts-mode.el
+++ b/lisp/progmodes/erts-mode.el
@@ -176,7 +176,7 @@ will be prompted for one."
          (list (cons 'dummy t) (cons 'code test-function))
          (buffer-file-name))
       (:success (message "Test successful"))
-      (ert-test-failed (message "Test failure; expected text: \n%s"
+      (ert-test-failed (message "Test failure; result: \n%s"
                                 (substring-no-properties (cadr (cadr arg))))))))
 
 (defun erts-mode--goto-start-of-test ()